home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utmisc1 / ovr50711.lha / Over5 / 64bin / boot (.txt) next >
Commodore BASIC  |  1996-05-12  |  241b  |  12 lines

  1. 100 OPEN2,2,3,CHR$(5)+CHR$(0)
  2. 110 PRINT"WAITING..."
  3. 120 GET#2,A$:IF A$<>"S" THEN120
  4. 130 GET#2,A$:IF A$="S" OR A$="" THEN130
  5. 140 FOR I=6000 TO 6511
  6. 150 GET#2,A$:IF A$="" THEN150
  7. 160 A=ASC(A$):C=(C+A)AND255
  8. 170 POKE I,A:PRINT"#";
  9. 180 NEXT
  10. 190 IF C<>0 THENPRINT:PRINT"?CHK ERROR":CLOSE 2:END
  11. 200 CLOSE 2:SYS 6000
  12.